home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScrollControl.cpt / ScrollControl XCMD / card_6558.txt < prev    next >
Text File  |  1989-04-22  |  1KB  |  51 lines
  1. -- card: 6558 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 6159
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A002
  11. -- rect: left=183 top=171 right=193 bottom=283
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Install
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get FileName("STAK")
  23.   if it is not empty then
  24.     pasteScroll it
  25.   else
  26.     Alert 2,1,"Installation Canceled"
  27.     set cursor to 1
  28.   end if
  29. end mouseUp
  30.  
  31. on pasteScroll yourStack
  32.   put the value of word 2 of long name of this stack into thisStack
  33.   put the short name of yourStack into labelforAlert
  34.   put "Install the ScrollControl XCMD into " & quote & labelforAlert & quote & " ?" into alertText
  35.   Alert 2,3,alertText
  36.   if the result is 1 then
  37.     rescopy thisStack,yourStack,"XCMD","ScrollControl"
  38.     Alert 2,1,"Installation Complete"
  39.     set cursor to 1
  40.   else
  41.     Alert 2,1, "Installation Cancelled"
  42.     set cursor to 1
  43.   end if
  44. end pasteScroll
  45.  
  46.  
  47.  
  48. -- part contents for background part 6
  49. ----- text -----
  50. Click on the button below to install the ‚ÄúScrollControl‚Äù XCMD into a stack. You‚Äôll be prompted for a stack name. After confirming your selection, the button will use the ResCopy XCMD to install the XCMD and into that stack.
  51.